######################################################################
# Time-stamp: <03/11/11 17:13:03 ostolop>
######################################################################
package EP::Session::Status;

use EP::Config;
use EP::Common::DB;

sub new {
  my $proto = shift;
  my ($session_id) = @_;
  my $class = ref($proto) || $proto;

  my $self  = { session_id => $session_id };
  bless $self, $class;

  return $self;
}

sub set {
  my $self = shift;
  my ($status) = @_;

  EP::Common::DB::set_session_status ( $self->{session_id}, $status );
}

1;
